8500 REM *** INSECT SOUND ***
8505 REM FORI=1TO500
8510 D=32:S=54272:POKES+24,15:POKES+13,0:POKES+8,100:POKES+12,2
8515 IF(PEEK(162)ANDD)=DTHENPOKES+11,33
8520 POKES+11,0
8525 GETA$:IFA$<>""THENSTOP
8530 GOTO8510
8535 :